#!/usr/bin/perl

use strict;
use Data::Dumper;

use CSS::SAC qw();
my $tsth = bless [];
my $sac = CSS::SAC->new({ DocumentHandler => $tsth });

$sac->parse({ filename => 'complex.css' });

# the namespace handler
sub namespace_declaration {
    my $dh = shift;
    print "namespace_declaration: " , Dumper \@_;
}

# this is the selector handler
sub start_selector {
    my $dh = shift;
    print "start_selector: " , Dumper \@_;
}

sub start_document {
    my $dh = shift;
    print "start_document: " , Dumper \@_;
}

sub property {
    my $dh = shift;
    print "property: " , Dumper \@_;
}

sub start_font_face {
    my $dh = shift;
    print "startFontFace: " , Dumper \@_;
}


